home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 143 / 143side3.d64 / list hi boot jd (.txt) < prev    next >
Commodore BASIC  |  2022-08-30  |  661b  |  29 lines
  1. 10 if x=1 then 40
  2. 20 dv=peek(186)
  3. 25 if dv<8 then dv=8
  4. 30 x=1:load"listwedge.49152",dv,1
  5. 40 poke774,3:poke775,192
  6. 70 rem jiffydos users may wish to
  7. 80 rem remove line 60.
  8. 82 rem   to enter 'list wedge':
  9. 85 rem   a)  hold down shift key
  10. 90 rem   b)  hold down f1 key
  11. 100 rem  c)  release shift key
  12. 110 rem  d)  release f1 key
  13. 115 f1$="@$:?*"+chr$(13)+chr$(0)
  14. 120 f2$="list"+chr$(13)+chr$(0)
  15. 125 f3$="/"+chr$(0)
  16. 130 f4$="@t"+chr$(0)
  17. 135 f5$="^"+chr$(0)
  18. 140 f6$="_  "+chr$(34)+"@:"+chr$(0)
  19. 145 f7$="%"+chr$(0)
  20. 150 f8$="@  "+chr$(34)+"s:"+chr$(0)
  21. 155 f$=f1$+f3$+f5$+f7$+f2$+f4$+f6$+f8$
  22. 160 buf=820
  23. 165 for i=1 to len(f$)
  24. 170 poke(buf+i-1),asc(mid$(f$,i,1))
  25. 172 next
  26. 175 poke 176,buf-( 256*(int(buf/256)) )
  27. 180 poke 177,int(buf/256):poke155,0
  28. 200 clr:new
  29.